home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / tcp / AmiTCP_bin_22.lha / AmiTCP-2.2 / bin / SynClock < prev    next >
AmigaDOS Script File  |  1993-11-08  |  665b  |  31 lines
  1. .KEY HOST/A,SAVE/S
  2. .BRA {
  3. .KET }
  4.  
  5. ; $VER: SynClock 2.1 (8.11.1993)
  6.  
  7. ; Set your amiga clock from host in network.
  8. ;    if someone finds a way to get DAY
  9. ;    locale (in)dependent way, (and fast)
  10. ;    please tell me   (too@cs.hut.fi)
  11.  
  12. Assign >NIL: TCP: exists
  13. if warn
  14.     echo TCP: not mounted.
  15.     quit 10
  16. endif
  17.  
  18. rx "Address 'COMMAND'; months='JanFebMarAprMayJunJulAugSepOctNovDec' +
  19.     If ~Open(dt, 'TCP:{HOST}/daytime', 'R') Then +
  20.         Do; Say '*** Service not present'; Exit 10; End +
  21.     d = readln(dt) +
  22.     tim = SubWord(d, 4, 1) +
  23.     month=(Pos(SubWord(d, 2, 1), months) + 2) / 3 +
  24.     Date TIME tim DATE SubWord(d, 3, 1)'-'month'-'SubStr(d, 23, 2)
  25.  
  26.  
  27. If {SAVE} 
  28. SetClock SAVE
  29. EndIf
  30.  
  31.